home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 January, February, March & April / Chip-Cover-CD-2007-02.iso / Pakiet bezpieczenstwa / mini Pentoo LiveCD 2006.1 / mpentoo-2006.1.iso / modules / nessus-2.2.8.mo / usr / lib / nessus / plugins / mailman_detect.nasl < prev    next >
Text File  |  2005-03-31  |  4KB  |  120 lines
  1. #
  2. # This script was written by George A. Theall, <theall@tifaware.com>.
  3. #
  4. # GPLv2
  5. #
  6.  
  7. # NB: I define the script description here so I can later modify
  8. #     it with the version number and install directory.
  9.   desc["english"] = "
  10. This script detects whether the remote host is running Mailman and
  11. extracts version numbers and locations of any instances found. 
  12.  
  13. Mailman is a Python-based mailing list management package from the GNU
  14. Project.  See http://www.list.org/ for more information. 
  15.  
  16. Risk factor : None";
  17.  
  18.  
  19. if (description) {
  20.   script_id(16338);
  21.   script_version("$Revision: 1.1 $");
  22.  
  23.   name["english"] = "Mailman Detection";
  24.   script_name(english:name["english"]);
  25.  
  26.   script_description(english:desc["english"]);
  27.  
  28.   summary["english"] = "Checks for the presence of Mailman";
  29.   script_summary(english:summary["english"]);
  30.  
  31.   script_category(ACT_GATHER_INFO);
  32.   script_copyright(english:"This script is Copyright (C) 2005 George A. Theall");
  33.  
  34.   family["english"] = "CGI abuses";
  35.   script_family(english:family["english"]);
  36.  
  37.   script_dependencie("global_settings.nasl", "http_version.nasl", "no404.nasl");
  38.   script_require_ports("Services/www", 80);
  39.  
  40.   exit(0);
  41. }
  42.  
  43. include("global_settings.inc");
  44. include("http_func.inc");
  45. include("http_keepalive.inc");
  46.  
  47. port = get_http_port(default:80);
  48. if (!get_port_state(port)) exit(0);
  49. if (get_kb_item("www/no404/" + port)) exit(0);
  50. debug_print("looking for Mailman on port ", port, ".");
  51.  
  52. # Search for Mailman's listinfo page.
  53. dirs = make_list("/mailman", cgi_dirs());
  54. installs = 0;
  55. foreach dir (dirs) {
  56.   listinfo = string(dir, "/listinfo");
  57.   debug_print("testing '", listinfo, "'.");
  58.   if (dir == "") dir = "/";
  59.  
  60.   # Get the page.
  61.   req = http_get(item:listinfo, port:port);
  62.   res = http_keepalive_send_recv(port:port, data:req);
  63.   if (res == NULL) exit(0);           # can't connect
  64.   debug_print("result = >>", res, "<<.");
  65.  
  66.   # Find the version number. It will be in a line such as
  67.   #   <td><img src="/icons/mailman.jpg" alt="Delivered by Mailman" border=0><br>version 2.1.5</td>
  68.   pat = "alt=.Delivered by Mailman..+>version ([^<]+)";
  69.   debug_print("grepping results for =>>", pat, "<<.");
  70.   matches = egrep(pattern:pat, string:res);
  71.   foreach match (split(matches)) {
  72.     match = chomp(match);
  73.     debug_print("grepping >>", match, "<< for =>>", pat, "<<.");
  74.     ver = eregmatch(pattern:pat, string:match);
  75.     if (ver == NULL) break;
  76.     ver = ver[1];
  77.     debug_print("Mailman version =>>", ver, "<<.");
  78.  
  79.     # Success!
  80.     set_kb_item(
  81.       name:string("www/", port, "/Mailman"), 
  82.       value:string(ver, " under ", dir)
  83.     );
  84.     installations[dir] = ver;
  85.     ++installs;
  86.  
  87.     # nb: only worried about the first match.
  88.     break;
  89.   }
  90.   # Scan for multiple installations only if "Thorough Tests" is checked.
  91.   if (installs && !thorough_tests) break;
  92. }
  93.  
  94. # Report any instances found unless Report verbosity is "Quiet".
  95. if (installs && report_verbosity > 0) {
  96.   if (installs == 1) {
  97.     foreach dir (keys(installations)) {
  98.       # empty - just need to set 'dir'.
  99.     }
  100.     info = string("Mailman ", ver, " was detected on the remote host under the path ", dir, ".");
  101.   }
  102.   else {
  103.     info = string(
  104.       "Multiple instances of Mailman were detected on the remote host:\n",
  105.       "\n"
  106.     );
  107.     foreach dir (keys(installations)) {
  108.       info = info + string("    ", installations[dir], ", installed under ", dir, "\n");
  109.     }
  110.     info = chomp(info);
  111.   }
  112.  
  113.   desc = ereg_replace(
  114.     string:desc["english"],
  115.     pattern:"This script[^\.]+\.", 
  116.     replace:info
  117.   );
  118.   security_note(port:port, data:desc);
  119. }
  120.